/ BBS in a Box 12
/ BBS in a box XII-1.iso / Files / Publish / A / Alpha.5.76.sit / Alpha.5.76 folder / Tcl / UserCode / smart.tcl ![]() | < prev | next > |
MacBinary | 1994-03-08 | 1.3 KB | [TEXT/ALFA] |
Confidence | Program | Detection | Match Type | Support |
---|---|---|---|---|
10% | dexvert | MacBinary (archive/macBinary) | fallback | Supported |
1% | dexvert | Text File (text/txt) | fallback | Supported |
100% | file | MacBinary II, inited, Tue Mar 8 16:46:41 1994, modified Tue Mar 8 16:46:41 1994, creator Alpha editor, type ASCII, 660 bytes "smart.tcl" , at 0x314 382 bytes resource | default (weak) | |
99% | file | data | default | |
74% | TrID | Macintosh plain text (MacBinary) | default | |
25% | TrID | MacBinary 2 | default (weak) | |
100% | siegfried | fmt/1762 MacBinary (II) | default | |
100% | lsar | MacBinary | default |
id metadata | |
---|---|
key | value |
macFileType | [TEXT] |
macFileCreator | [ALFA] |
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 09 73 6d 61 72 74 2e | 74 63 6c 00 00 00 00 00 |..smart.|tcl.....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 41 4c 46 | 41 01 00 00 00 00 00 00 |.TEXTALF|A.......|
|00000050| 00 00 00 00 00 02 94 00 | 00 01 7e a9 a2 a2 c1 a9 |........|..~.....|
|00000060| a2 a2 c1 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 8e c1 00 00 |........|........|
|00000080| 73 65 74 20 73 6d 61 72 | 74 51 75 6f 74 65 73 20 |set smar|tQuotes |
|00000090| 31 0d 0d 70 72 6f 63 20 | 64 75 6d 20 7b 7d 20 7b |1..proc |dum {} {|
|000000a0| 0d 09 62 65 67 69 6e 6e | 69 6e 67 4f 66 4c 69 6e |..beginn|ingOfLin|
|000000b0| 65 0d 7d 0d 0d 70 72 6f | 63 20 73 6d 61 72 74 44 |e.}..pro|c smartD|
|000000c0| 51 75 6f 74 65 20 7b 7d | 20 7b 0d 09 67 6c 6f 62 |Quote {}| {..glob|
|000000d0| 61 6c 20 73 6d 61 72 74 | 51 75 6f 74 65 73 0d 09 |al smart|Quotes..|
|000000e0| 69 66 20 7b 21 24 73 6d | 61 72 74 51 75 6f 74 65 |if {!$sm|artQuote|
|000000f0| 73 7d 20 7b 20 69 6e 73 | 65 72 74 54 65 78 74 20 |s} { ins|ertText |
|00000100| 7b 22 7d 3b 20 72 65 74 | 75 72 6e 20 7d 0d 09 69 |{"}; ret|urn }..i|
|00000110| 66 20 7b 5b 6c 65 66 74 | 51 5d 7d 20 7b 0d 09 09 |f {[left|Q]} {...|
|00000120| 69 6e 73 65 72 74 54 65 | 78 74 20 7b 60 60 7d 0d |insertTe|xt {``}.|
|00000130| 09 7d 20 65 6c 73 65 20 | 7b 0d 09 09 69 6e 73 65 |.} else |{...inse|
|00000140| 72 74 54 65 78 74 20 7b | 27 27 7d 0d 09 7d 0d 7d |rtText {|''}..}.}|
|00000150| 0d 61 73 63 69 69 20 30 | 78 32 32 20 3c 73 3e 20 |.ascii 0|x22 <s> |
|00000160| 73 6d 61 72 74 44 51 75 | 6f 74 65 20 54 65 78 0d |smartDQu|ote Tex.|
|00000170| 0d 70 72 6f 63 20 73 6d | 61 72 74 51 75 6f 74 65 |.proc sm|artQuote|
|00000180| 20 7b 7d 20 7b 0d 09 67 | 6c 6f 62 61 6c 20 73 6d | {} {..g|lobal sm|
|00000190| 61 72 74 51 75 6f 74 65 | 73 0d 09 69 66 20 7b 21 |artQuote|s..if {!|
|000001a0| 24 73 6d 61 72 74 51 75 | 6f 74 65 73 7d 20 7b 20 |$smartQu|otes} { |
|000001b0| 69 6e 73 65 72 74 54 65 | 78 74 20 7b 27 7d 3b 20 |insertTe|xt {'}; |
|000001c0| 72 65 74 75 72 6e 20 7d | 0d 09 69 66 20 7b 5b 6c |return }|..if {[l|
|000001d0| 65 66 74 51 5d 7d 20 7b | 0d 09 09 69 6e 73 65 72 |eftQ]} {|...inser|
|000001e0| 74 54 65 78 74 20 7b 60 | 7d 0d 09 7d 20 65 6c 73 |tText {`|}..} els|
|000001f0| 65 20 7b 0d 09 09 69 6e | 73 65 72 74 54 65 78 74 |e {...in|sertText|
|00000200| 20 7b 27 7d 0d 09 7d 0d | 7d 0d 61 73 63 69 69 20 | {'}..}.|}.ascii |
|00000210| 30 78 32 37 20 73 6d 61 | 72 74 51 75 6f 74 65 20 |0x27 sma|rtQuote |
|00000220| 54 65 78 0d 0d 70 72 6f | 63 20 6c 65 66 74 51 20 |Tex..pro|c leftQ |
|00000230| 7b 7d 20 7b 0d 09 69 66 | 20 7b 5b 67 65 74 50 6f |{} {..if| {[getPo|
|00000240| 73 5d 20 3d 3d 20 30 7d | 20 7b 72 65 74 75 72 6e |s] == 0}| {return|
|00000250| 20 31 7d 3b 0d 09 73 65 | 74 20 71 20 5b 6c 6f 6f | 1};..se|t q [loo|
|00000260| 6b 41 74 20 5b 65 78 70 | 72 20 5b 67 65 74 50 6f |kAt [exp|r [getPo|
|00000270| 73 5d 2d 31 5d 5d 0d 09 | 63 61 73 65 20 24 71 20 |s]-1]]..|case $q |
|00000280| 69 6e 20 7b 0d 09 09 7b | 5c 74 7d 20 20 7b 72 65 |in {...{|\t} {re|
|00000290| 74 75 72 6e 20 31 7d 0d | 09 09 7b 28 7d 20 20 7b |turn 1}.|..{(} {|
|000002a0| 72 65 74 75 72 6e 20 31 | 7d 0d 09 09 7b 5c 7b 7d |return 1|}...{\{}|
|000002b0| 20 20 7b 72 65 74 75 72 | 6e 20 31 7d 0d 09 09 7b | {retur|n 1}...{|
|000002c0| 5b 7d 20 20 7b 72 65 74 | 75 72 6e 20 31 7d 0d 09 |[} {ret|urn 1}..|
|000002d0| 09 7b 3c 7d 20 20 7b 72 | 65 74 75 72 6e 20 31 7d |.{<} {r|eturn 1}|
|000002e0| 0d 09 09 7b 5c 20 7d 20 | 7b 72 65 74 75 72 6e 20 |...{\ } |{return |
|000002f0| 31 7d 0d 09 09 7b 5c 72 | 7d 20 7b 72 65 74 75 72 |1}...{\r|} {retur|
|00000300| 6e 20 31 7d 0d 09 7d 0d | 09 72 65 74 75 72 6e 20 |n 1}..}.|.return |
|00000310| 30 0d 7d 0d 00 00 00 00 | 00 00 00 00 00 00 00 00 |0.}.....|........|
|00000320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000340| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000350| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000370| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000380| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00000390| 0a 61 73 73 69 67 6e 69 | 6e 67 20 61 20 7b 5c 65 |.assigni|ng a {\e|
|000003a0| 6d 20 76 65 63 74 6f 72 | 20 74 69 6d 65 73 74 61 |m vector| timesta|
|000003b0| 09 73 6d 61 72 74 2e 74 | 63 6c 02 00 00 00 50 61 |.smart.t|cl....Pa|
|000003c0| 72 74 53 49 54 21 00 00 | 00 00 00 00 00 00 00 00 |rtSIT!..|........|
|000003d0| 00 00 50 61 72 74 53 49 | 54 21 00 00 00 00 00 00 |..PartSI|T!......|
|000003e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003f0| 00 00 a9 b0 91 b5 00 00 | 00 00 00 00 01 7e 72 2e |........|.....~r.|
|00000400| 0a 54 68 65 20 65 6e 74 | 72 79 20 66 6f 72 20 70 |.The ent|ry for p|
|00000410| 72 6f 63 65 73 73 6f 72 | 20 24 70 24 20 69 6e 20 |rocessor| $p$ in |
|00000420| 74 68 65 20 76 65 63 74 | 6f 72 20 74 69 6d 65 73 |the vect|or times|
|00000430| 74 61 6d 70 20 6f 66 20 | 69 6e 74 65 72 76 61 6c |tamp of |interval|
|00000440| 20 24 69 24 0a 6f 66 20 | 70 72 6f 63 65 73 73 6f | $i$.of |processo|
|00000450| 72 20 24 70 24 20 69 73 | 20 65 71 75 61 6c 20 74 |r $p$ is| equal t|
|00000460| 6f 20 24 69 24 2e 0a 54 | 68 65 20 65 6e 74 72 79 |o $i$..T|he entry|
|00000470| 20 66 6f 72 20 70 72 6f | 63 65 73 73 6f 72 20 24 | for pro|cessor $|
|00000480| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 e9 |...H..Mo|naco....|
|00000490| e3 54 00 dd 7d ea 00 00 | 00 6b 00 db cf be 00 e1 |.T..}...|.k......|
|000004a0| 18 e0 00 e4 e0 c0 00 04 | 00 04 00 28 00 03 01 dd |........|...(....|
|000004b0| 02 01 00 28 00 03 01 dd | 02 01 00 03 6f a5 00 00 |...(....|....o...|
|000004c0| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 01 00 |........|........|
|000004d0| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 da e3 9c |...L...L|...2....|
|000004e0| 05 84 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.......2|..MPSR..|
|000004f0| 00 0a 03 ed ff ff 00 00 | 00 00 00 db c9 34 00 00 |........|.....4..|
+--------+-------------------------+-------------------------+--------+--------+